Dic_sub  dic, _
    Dict(Array( "Key1","Item1", "Key2","ITEMS", "Key3","Item3" )), _
    Dict(Array( "Key1","Item1", "Key2","Item2", "Key4","Item4" )), _
    Empty, Empty
    '//[out] dic

  '// dic = Dict(Array( "Key2","ITEMS", "Key3","Item3", "Key4",Empty ))

サンプル：

CompareFunc

CompareFuncParam

比較関数

通常 Empty、CompareFunc の第3引数

、Empty =

StdCompare

通常 Empty、

→ T_Dic.vbs # T_DicAdd

テスト

サンプル：

Sub  Dic_removeInArrayItem( arg_Dictionary as dictionary of ArrayClass, _
        in_Key as string,  in_Item as variant, _
        in_CompareFunction as CompareFunction,  in_ParameterOfCompareFunction as variant, _
        in_IsErrorIfNotFound as boolean,  in_IsMultiRemove as boolean )

配列をアイテムに持つ辞書から、配列の要素を除外します。

【引数】

arg_Dictionary

in_Key

配列をアイテムに持つ辞書

辞書のキー

in_Item

比較対象のアイテム、in_CompareFunction の第2引数

関連

サンプル

→ Dic_addInArrayItem

in_CompareFunction

in_ParameterOfCompareFunction

in_IsErrorIfNotFound

in_IsMultiRemove

比較関数

in_CompareFunction の第3引数

１つも一致しなかったらエラーにするかどうか

複数の要素が一致したら、そのすべて除外するかどうか

in_IsErrorIfNotFound に True を指定すると、登録されていない辞書のキーを指定したときや、
比較対象のアイテムと一致する配列要素が１つのなかったときに、E_NotFoundSymbol エラー
になります。

参考

Dic_addInArrayItem

のデータ構造

辞書の中にある、指定されたキーに対応するアイテムを探し、
そのアイテムである配列の中のすべての要素に対して比較関数をコールバックし、
比較関数が 0を返したら、比較関数に渡した要素を配列から除外します。
配列の要素がすべて除外されたら、該当する辞書のキーやアイテムも除外します。

indexes = Dic_searchInArrayItem( dic, "KeyA", "ItemA", GetRef( "StdCompare" ), Empty )

サンプル

→ vbslib.vbs

ソース

→ T_Dic.vbs

テスト

T_DicArrayItem

  Dim  dic, arr

  Set dic = CreateObject( "Scripting.Dictionary" )
  Set arr = GetDicItemAsArrayClass( dic, "key1" )

テスト

→ T_Dic.vbs # T_GetDicItem

サンプル

dic, "key1"

ソース

→ vbslib.vbs

指定したキーに対応するアイテムがないときは、新規作成した ArrayClass のオブジェクトを、
キーに対応するアイテムに追加します。

    Set  dic = CreateObject( "Scripting.Dictionary" )
    dic( "123" ) = 0
    dic( "123\456" ) = 0
    Assert  Dic_searchParent( dic, "C:\Folder", "123\456\a.txt" )  = "123\456"
    Assert  Dic_searchParent( dic, "C:\Folder", "123\4567\a.txt" ) = "123"
    Assert  IsEmpty( Dic_searchParent( dic, "C:\Folder", "123" ) )

サンプル

    Set  dic = CreateObject( "Scripting.Dictionary" )
    dic( "123\456" ) = 0
    dic( "123\456\File.txt" ) = 0
    Dic_searchChildren  dic, "C:\Folder", "123", an_array, Empty  '//(out)an_array
        Assert  IsSameArray( an_array, Array( "123\456", "123\456\File.txt" ) )
    Dic_searchChildren  dic, "C:\Folder", "123\456", an_array, Empty  '//(out)an_array
        Assert  IsSameArray( an_array, Array( "123\456\File.txt" ) )
    Dic_searchChildren  dic, "C:\Folder", "12", an_array, Empty  '//(out)an_array
        Assert  IsSameArray( an_array, Array( ) )

BasePath 引数は、Dictionay 引数のキーがフル パスのとき、かつ、Path が相対パスのときに必要です。
それ以外のときは、Empty を指定できます。

T_PathDictionary_SearchChildren

→ vbslib.vbs

ソース

→ T_Wildcard.vbs

テスト

out_PathArray 引数の配列要素がフル パスか相対パスかは、Dictionay 引数のキーがフル パスか
相対パスかによります。

フォルダーとサブ フォルダーに入っているファイルを一覧することに近い処理をします。

Set  dic = CreateObject( "Scripting.Dictionary" )
DicItemToNameOnlyClassItem  dic

サンプル

ソース

→ vbslib.vbs

関連

→ ArrayToNameOnlyClassArray

配列版

テスト

→ GetIdentifiableFileNames のテスト

Set  dic = CreateObject( "Scripting.Dictionary" )
NameOnlyClassItemToDicItem  dic

サンプル

ソース

→ vbslib.vbs

関連

配列版

→ NameOnlyClassArrayToArray

テスト

→ GetIdentifiableFileNames のテスト

  QuickSort_fromDic  dic, arr, GetRef("StdCompare"), Empty  '//[out]arr

関連

→ DicToArr

Sub  QuickSort_fromDicKey( in_out_Dictionary as dictionary,
    out_SortedKeysArray as array of string,  in_Empty as Empty )

辞書に入っているデータをクイック ソートします。 辞書のキーでソートします。

【引数】

in_out_Dictionary

out_SortedKeysArray

ソートする前のキーが入った辞書

（出力） ソートした後のキーが入った配列。配列の要素は

in_Empty

Empty を指定してください

サンプル

DicElem オブジェクト

ソートした結果は、out_SortedKeysArray 引数に出力されます。

→ DicElemArrayKeyToArr

関連

比較関数 PathCompare

を使ってソートします。

ShakerSortDicByKeyCompare  dic, GetRef( "NumStringCompare" ), Empty

サンプル

  Set dic = CreateObject( "Scripting.Dictionary" )

  ShakerSort_fromDicKey  dic, sorted_items, Empty  '//[out] sorted_items

  For Each  item  In sorted_items
    echo  item.Key +" : "+ item.Item
  Next

dic, sorted_items

比較関数 PathCompare

を使ってソートします。